Oz 
Menambah 
Interaktivitas Nlacra 


Macro yang Anda buat tentu akan lebih menarik jika dapat 
berinteraksi dengan pengguna. Untuk keperluan tersebut, Anda 
dapat membuat kotak pesan, kotak input, kotak dialog atau 
ActiveX Control. Pemilihan salah satu model yang digunakan akan 
sangat tergantung pada kebutuhan. Macro yang hanya digunakan 
untuk membuat worksheet akan lebih tepat jika ditambahkan 
interaktivitas menggunakan kotak pesan. Selain lebih mudah, 
pembuatan kotak pesan juga tidak memakan banyak waktu. 
Namun, apabila Macro yang Anda buat membutuhkan kontrol 
yang tidak tersedia dalam kotak pesan atau kotak input (misalnya 
Frame, ComboBox, ListBox), Anda disarankan untuk membuat 
kotak dialog menggunakan UserForm. 


5.1 Kotak Pesan (Meccage Box) 


Kotak pesan digunakan untuk menampilkan pesan kepada peng- 
guna. Pesan tersebut dapat berupa pesan kritis, pesan informasi, 
pesan peringatan, atau pesan pertanyaan. Anda dapat memberi- 
tahukan kepada pengguna mengenai apa yang akan dijalankan 
oleh Macro dan selanjutnya memberikan pilihan kepada pengguna 
untuk tetap melanjutkan atau tidak, menggunakan kotak pesan. 
Contoh penggunaan kotak pesan lainnya adalah untuk memberi 
peringatan kepada pengguna bahwa terjadi kesalahan dan mem- 
beritahukan tindakan apa yang perlu dilakukan untuk mengatasi 
kesalahan tersebut. 


Anda perlu mengetahui aturan pembuatan kotak pesan sehingga 
pesan yang disampaikan dapat dipahami oleh pengguna dengan 
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gamblang. Apabila pesan yang ingin Anda sampaikan adalah 
pesan yang bersifat pertanyaan, akan lebih tepat jika ikon yang 
digunakan adalah ikon pertanyaan (vbouestion). Kode Macro untuk 
membuat kotak pesan ditulis dengan format sebagai berikut: 


MsgBox (Iprompt), Ibuttonsl, Ititlel, Ihelpfilel, Icontext)) 
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Iprompt| merupakan pesan yang akan disampaikan kepada 
pengguna. Argumen prompt merupakan argumen yang diper- 
lukan pada kotak pesan sehingga harus digunakan. Panjang 
pesan maksimal 1024 karakter. Apabila Anda ingin membuat 
pesan lebih dari 1 baris, pisahkan baris menggunakan kode 
vbCrLf. 


Ibuttons| merupakan argumen untuk memilih jenis tombol, 
memilih jenis ikon, memilih tombol default dan memilih jenis 
modal kotak pesan. Argumen buttons bersifat opsional 
sehingga dapat diisi ataupun tidak diisi. Apabila tidak diisi, 
kotak pesan secara default hanya menampilkan tombol OK. 


Jenis tombol yang dapat ditambahkan pada kotak pesan 
menggunakan VBA adalah sebagai berikut. 


Jenis tombol Nilai Keterangan 
vbOKOnly 0 Tombol OK 
vbOKCancel 1 Tombol OK dan Cancel 
vbAbortRetrylIgnore 2 Tombol Abort, Retry dan Ignore 
vbYesNoCancel 3 Tombol Yes, No dan Cancel 
vbYesNo 4 Tombol Yes dan No 
vbRetryCancel 5 Tombol Retry dan Cancel 


Jenis ikon yang dapat dibuat pada kotak pesan menggunakan 
VBA adalah sebagai berikut. 


Jenis ikon Ikon Nilai Keterangan 
vbCritical Xx) 16 Ikon pesan kritis 
vbOuestion eP) 32 Ikon pertanyaan 
vbExclamation AN 18 Ikon peringatan 
vbInformation i) 64 Ikon informasi 


Tombol default adalah tombol kotak pesan yang dipilih saat 
pengguna menekan tombol Enter pada keyboard. Pilihan 
tombol default kotak pesan VBA adalah sebagai berikut. 


Tombol default Nilai Keterangan 


vbDefaultButton1 0 Tombol pertama sebagai default 


vbDefaultButton2 256 | Tombol kedua sebagai default 


vbDefaultButton3 512 | Tombol ketiga sebagai default 


vbDefaultButton4 768 | Tombol keempat sebagai default 


Jenis modal kotak pesan berfungsi untuk mengatur tampilan 
kotak pesan, apakah hanya ditampilkan saat Excel aktif atau 
akan tetap ditampilkan walaupun Excel tidak aktif. Secara 
default, kotak pesan ditampilkan dengan jenis Modal 
Application. Pilihan jenis modal kotak pesan VBA adalah 
sebagai berikut. 


Jenis modal Nilai Keterangan 


Kotak pesan yang hanya ditampilkan 


vbApplicationModal 4096 sast Excelaktif 


Kotak pesan ditampilkan tidak hanya 


vbSystemModal 16384 ses excel ALtik 


Ititle| merupakan judul kotak pesan. Argumen title bersifat 
opsional sehingga dapat diisi ataupun tidak diisi. Apabila tidak 
diisi, secara default judul kotak pesan adalah Microsoft Excel. 


(help) dan (context| merupakan fasilitas bantu VBA yang akan 
ditampilkan apabila pengguna menekan tombol F1 pada 
Keyboard. Argumen help dan context harus digunakan secara 
bersamaan. 


511 Membuat Kotak Pesan 


Dalam contoh kali ini kita akan membuat kotak pesan yang 
menampilkan informasi biodata penulis. Sesuai dengan tujuannya, 
ikon yang ditampilkan kotak pesan adalah ikon informasi dengan 
tombol OK. 
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1. Tekan kombinasi tombol Ctrl-N untuk membuat workbook 
baru. Simpan workbook dengan nama Membuat Kotak 
Pesan.xls. 


2. Tekan kombinasi tombol Alt-F11 atau klik tombol Visual 
Basic dalam tab Developer group Code untuk membuka Visual 
Basic Editor. 


3. Pada jendela Visual Basic Editor pilih menu Insert »— Module. 
Ketikkan kode Macro berikut pada window Code Module 1: 


Sub KotakPesan () 


MsgBox "Yudhy Wicaksono" & vbCrLf & 
“e-mail: yudhy wicaksono2000@yahoo.com", 
vbOKOnly # vbInformation, 

"Penulis Buku Ini" 


End Sub 


4. Kembali ke program utama Excel. Tekan kombinasi tombol 
Alt-F8 atau klik tombol Macros dalam tab Developer group 
Code untuk menampilkan kotak dialog Macro. 


Macro name: 
KotakPesan Run 


KAPAN 


Step Into 


Edit 


Delete 


Options... 


Macros in: | All Open Workbooks 


Description 


Cancel 


Gambar 5.1 Kotak dialog Macro. 


5. Pilih Macro KotakPesan kemudian klik tombol Run. Setelah 
Macro dijalankan, muncul kotak pesan Penulis Buku Ini. 
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Penulis Buku Ini 


i Yudhy Wicaksono 
e-mail: yudhy wicaksono2000@yahoo.com 


Gambar 5.2 Tampilan kotak pesan informasi yang dibuat. 


519 Nilai Kotak Pesan 


Anda dapat membuat kotak pesan yang ketika direspons (dipilih 
tombol tertentu) akan mengembalikan sebuah nilai yang digu- 
nakan untuk menentukan kejadian yang akan dilakukan. Misal- 
nya, Anda dapat membuat kotak pesan untuk memperingatkan 
kepada pengguna bahwa Macro yang dijalankan akan menghapus 
seluruh data dalam worksheet aktif. Apabila tombol OK diklik, 
seluruh data akan terhapus. Namun, jika tombol Cancel yang 
diklik, data tidak jadi dihapus. Kode Macro untuk membuat kotak 
pesan yang mengembalikan sebuah nilai ditulis dengan format 
berikut: 


Nilai - MsgBox (Iprompt|, Ibuttonsl|, Ititle)l) 


Daftar konstanta dan nilai tombol kotak pesan dapat dilihat pada 
tabel. Anda dapat memilih apakah akan menggunakan konstanta 
atau nilai untuk merespons tombol yang diklik pengguna. 


Konstanta Nilai Tombol yang dipilih 
vbOK 1 OK 
vbCancel 2 Cancel 
vbAbort 3 Abort 
vbRetry 4 Retry 
vblIgnore 5 Ignore 
vbYes 6 Yes 
vbNo 7 No 


1. Tekan kombinasi tombol Ctrl-N untuk membuat workbook 
baru. Simpan workbook dengan nama Nilai Kotak Pesan.xls. 
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2. 


3. 
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Tekan kombinasi tombol Alt-F11 atau klik tombol Visual 
Basic dalam tab Developer group Code untuk membuka Visual 
Basic Editor. 


Pada jendela Visual Basic Editor pilih menu Insert »- Module. 
Ketikkan kode Macro berikut pada window Code Module 1: 


Kembali ke program utama Excel. Untuk menguji hasilnya, 
ketikkan sembarang nilai pada sel A1 dan C5. Misalnya, 
ketikkan 12 pada sel A1 dan 184 pada sel C5. 


Tekan kombinasi tombol Alt-F8 atau klik tombol Macros 
dalam tab Developer group Code untuk menampilkan kotak 
dialog Macro. 


Pilih Macro NilaiKotakPesan kemudian klik tombol Run. 
Setelah Macro dijalankan, muncul kotak pesan Hapus Data. 


Gambar 5.3 Kotak pesan peringatan Hapus Data. 


7. Jika tombol OK yang diklik, maka seluruh data dalam 
worksheet aktif akan terhapus, lihat sel A1 dan C5. Apabila 
tombol Cancel yang diklik, muncul kotak pesan seperti terlihat 
pada Gambar 5.4. Jika Anda menekan tombol Enter pada 
keyboard, maka yang akan dijalankan adalah tombol Cancel 
karena yang digunakan sebagai default adalah tombol kedua. 


Microsoft Excel Xx 


1) Data tidak jadi dihapus 


Gambar 5.4 Data tidak jadi dihapus. 


5.2 Kotak Input (Input Box) 


Kotak input pada dasarnya memiliki kegunaan yang sama dengan 
kotak pesan, yaitu untuk mendapatkan nilai dari pengguna. 
Perbedaan kotak pesan dan kotak input terletak dari cara yang 
dilakukan untuk mendapatkan nilai dari pengguna. Untuk 
mendapatkan nilai dari pengguna, kotak pesan menggunakan 
tombol, misalnya tombol OK, tombol Cancel atau tombol lain yang 
disediakan VBA. Kotak input mendapatkan nilai dari pengguna 
setelah pengguna memasukkan nilai pada kotak isian dalam kotak 
input. Format kode Macro untuk membuat kotak input adalah 
sebagai berikut: 


InputBox (Iprompt)J, Ititlel, Idefaultl, Itypel) 


@ 


Iprompt| merupakan informasi yang disampaikan kepada 
pengguna. Argumen prompt merupakan argumen yang 
diperlukan pada kotak input sehingga harus diisi. 


(title| merupakan judul kotak input. Argumen title bersifat 
opsional sehingga dapat diisi ataupun tidak. Apabila tidak diisi, 
secara default judul kotak input adalah Microsoft Excel. 


Idefault| merupakan nilai default pada kotak input. Argumen 
default bersifat opsional sehingga dapat diisi ataupun tidak. 


Itype| merupakan tipe kotak input. Berikut pilihan tipe kotak 
input yang disediakan VBA: 
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Nilai Tipe kotak input 


0 Formula 

1 Angka 

2 Teks 

4 Nilai logika (True atau False) 
8 Sel atau range 

16 Nilai error 

64 Nilai array 


591 Membuat Kotak Input 


Pada latihan ini kita akan membuat kotak input berat badan 
pengguna. Berat badan yang diisikan pengguna akan ditampilkan 
pada kotak pesan serta dimasukkan ke dalam sel A1 worksheet 
aktif. 


1. Tekan kombinasi tombol Ctrl-N untuk membuat workbook 
baru. Simpan workbook dengan nama Membuat Kotak 
Input.xls. 


2. Tekan kombinasi tombol Alt-F11 atau klik tombol Visual 
Basic dalam tab Developer group Code untuk membuka Visual 
Basic Editor. 


3. Pada jendela Visual Basic Editor pilih menu Insert »— Module. 
Ketikkan kode Macro berikut pada window Code Module 1: 


Sub KotakiInput () 


'Kotak input 
Berat - InputBox ("Berapa berat badan Anda?" 
& vbCrLf g "Dalam kg", "Berat Badan", 50) 


"Jika kotak input kosong atau tombol Cancel diklik 


If Berat - "" Or Berat - "Boolean" Then 
'Keluar dari Sub Prosedure 
Exa Sulo 

End If 


'Kotak pesan 
MsgBox "Berat badan Anda adalah " & Berat & 
" kilogram", vbOKOnly, "Berat Badan" 


'Memasukkan nilai kotak input ke dalam sel Al 
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Range ("A1") .Value -— Berat 


End Sub 


Kembali ke program utama Excel. Tekan kombinasi tombol 
Alt-F8 atau klik tombol Macros dalam tab Developer group 
Code untuk menampilkan kotak dialog Macro. 


Pilih Macro KotaklInput kemudian klik tombol Run. Setelah 
Macro dijalankan, muncul kotak input Berat Badan. 


Berat Badan 


Berapa berat badan Anda? 
Dalam 


g Cancel 


es 


Gambar 5.5 Kotak input Berat Badan. 


Secara default nilai kotak input adalah 50. Anda dapat 
mengubah nilai tersebut sesuai keinginan. Misalnya berat 
badan Anda 65 kilogram, ketikkan nilai tersebut pada kotak 
input. Klik tombol OK. Data yang Anda masukkan kemudian 
ditampilkan pada kotak pesan Berat Badan. 


Berat Badan 


Berat badan Anda adalah 65 kilogram 


Gambar 5.6 Kotak pesan Berat Badan. 


Klik tombol OK. Selain ditampilkan kotak pesan, data berat 
badan juga dimasukkan ke dalam sel A1 worksheet aktif. 


599 Kotak Input dengan Tipe Range 


Kotak Input dengan tipe range dapat Anda gunakan untuk 
menyeleksi sel atau range tertentu. Sel atau range yang sudah 
Anda tentukan selanjutnya dapat Anda gunakan untuk keperluan 
pengolahan data. 
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1. Buka file Kotak Input Dengan Tipe Range.xls yang disertakan 
dalam Bonus CD buku. 


2. Tekan kombinasi tombol Alt-F11 atau klik tombol Visual 
Basic dalam tab Developer group Code untuk membuka Visual 
Basic Editor. 


3. Pada jendela Visual Basic Editor pilih menu Insert »— Module. 
Ketikkan kode Macro berikut pada window Code Module 1: 


Sub CopyPaste () 


"Lanjutkan Macro jika terjadi error 
On Error Resume Next 


'Kotak input dengan tipe range untuk mengcopy sel/range 
See Ihyowesell &. 

Application.InputBox (Prompt:-"Blok input sel/range", 
Title:-"Copy Paste 1", Type:-8) 


'Kotak input dengan tipe range untuk menyalin sel/range 
Sak Orgsuesal — 

Appircabilon SInpuek os EP rompe Pan ouepu esa 
Title:-"Copy Paste 2", Type:-8) 


'Copy dari referensi sel kotak input 
InputSel.Copy 


“Paste dari reterensi sel kotak input 
OutputSel.PasteSpecial (xlPasteAl1) 


End Sub 


4. Kembali ke program utama Excel. Tekan kombinasi tombol 
Alt-F8 atau klik tombol Macros dalam tab Developer group 
Code untuk menampilkan kotak dialog Macro. 


5. Pilih Macro Kotaklnput kemudian klik tombol Run. Setelah 
Macro dijalankan, muncul kotak input Copy Paste 1. 


Copy Paste 1 


Blok input selirange 


$4$1:6D$10 


Gambar 5.7 Kotak input Copy Paste 1. 


6. Blok range A1:D10 (hasil blok ditandai garis putus-putus). Klik 
tombol OK. Muncul kotak input Copy Paste 2. 
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7. Tempatkan pointer pada sel A12 (hasil penempatan pointer 
ditandai garis putus-putus). Klik tombol OK. 


A B ie D E F 6 H ti z 

1 "PENJUALAN BUKU TULIS TOKO SUMBER ILMU Ig 

PM No Namapembeli — Jumlah Total penjualan 

311 (Tono 10 25.000 

4! 2 |tarun 8 20.000! 

5? 3 |Meilan 5 12.500, 

6 4 (Rasyid 7 17.500! 

71 5 |alinda 0 50.000 

8! 6 (Santoso 3 7.500! 

9: 7 |(Wiwit 10 25.000! 

101 8 (Sugeng 20 50.000: 

11 - 
12 (PENJUALAN BUKU TULIS TOKO SUMBER ILMU 
IKEN No Namapembeli Jumlah — Total penjualan 

ta (Tono 10 

15| 2 |tarun 8 

16| 3 (Meilan 5 

174 (Rasyid Ti 

18| 5 |Alinda 20 

i9| 0 (Santoso 3 

207 (wwit 10 
218 (Sugeng 20 

22 
23 2 
WA Data “3 a KTI 1 basal 
Select @estination ang pre:s ENTER or choose Paste (average:2650,701667  Count:37 Sum 207619 | FI DI 1305 (5 sj 


Gambar 5.8 Hasil copy paste menggunakan kotak input. 


5.2 Built In Kotak Dialog 


Salah satu kemudahan dalam penggunaan Macro Excel adalah 
tersedianya banyak built in kotak dialog (kotak dialog siap pakai). 
Misalnya, Anda dapat menggunakan kotak dialog Format Cells: 
Font Properties untuk mengatur format font. Anda dapat me- 
manfaatkan fasilitas Auto List Members untuk menampilkan daftar 
built in kotak dialog. 


Sub BuiltInKotakDialog |) 


'Menggunakan built in kotak dialog 
Format Cells: Font Properties si 
Application.Dialogs | 
. Defau g 
End Sub a 


B xIDialogFont 
a 
@ xIDialogFormatAuto 
@ xIDialogFormatChart 
@ xIDialogFormatCharttype 


Gambar 5.9 Daftar built in kotak dialog. 


1. Buka file Built In Kotak Dialog.xIs yang disertakan dalam 
Bonus CD buku. 


2. Tekan kombinasi tombol Alt-F11 atau klik tombol Visual 
Basic dalam tab Developer group Code untuk membuka Visual 
Basic Editor. 
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3. Pada jendela Visual Basic Editor, pilih menu Insert »- Module. 
Ketikkan kode Macro berikut pada window Code Module 1: 


Sub BuiltInKotakDialog () 


'Menggunakan built in kotak dialog 
Format Cells: Font Properties 
Application.Dialogs (xlDialogFontProperties) .Show 


End Sub 


4. Kembali ke program utama Excel. Blok range A3:D10. Tekan 
kombinasi Alt-F8 atau klik tombol Macros dalam tab 
Developer group Code untuk menampilkan kotak dialog 
Macro. 


5. Pilih Macro BuiltiInKotakDialog kemudian klik tombol Run. 
Muncul kotak dialog Format Cells: Font Properties. 


Format Cells 
Font 
Eont: Font style: 
Tahoma Italic 
Tp syfaen Regular 


Tp Symbol 
System 


Bold 
Bold Italic 


JB Tekton Pro 

(El Tekton Pro Cond 
Underline: 

None 

Effects 


DO strikethrough 


Gambar 5.10 Kotak dialog Format Cells: Font Properties. 


6. Pada daftar pilihan Font: pilih Tahoma. Pada daftar pilihan Font 
style: pilih Italic, kemudian pilih 10 pada daftar pilihan Size:. 
Klik tombol OK. Format font range A3:D10 yang sedang 
terseleksi kemudian berubah menyesuaikan hasil pengaturan 
kotak dialog. 


5.4 Kotak Dialog Open 


Anda dapat menampilkan kotak dialog Open menggunakan 
method GetOpenFfile untuk mengambil sebuah file. Method 
GetOpenFfile ditulis dengan format kode Macro sebagai berikut: 
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Application.GetOpenFilename(|(fileFilter), (filterIndex), 
Kent (Pevieconansau le (mulas) 


(fileFilter| merupakan kriteria pembatasan file contoh "Excel- 
files,”.xism". Argumen fileFilter bersifat opsional sehingga 
dapat diisi ataupun tidak. Apabila tidak diisi, argumen akan 
berisi All files (“.“),“.“. Untuk menggunakan beberapa tipe 
filter, pisahkan dengan tanda titik koma (:), misalnya "Excel- 
files,” .xls:”.xIsx". 


(filteriIndex| merupakan angka indeks dari urutan filter yang 
ditentukan pada fileFilter. Argumen filterIndex bersifat opsional 
sehingga dapat diisi ataupun tidak. Apabila tidak diisi, secara 
default, filter pertama yang akan digunakan. 


(title) merupakan judul pada kotak dialog Open. Argumen title 
bersifat opsional sehingga dapat diisi ataupun tidak. Apabila 
tidak diisi, secara default judul kotak dialog adalah Open. 


IbuttonText| merupakan teks yang digunakan pada tombol 
pada kotak dialog. Argumen buttonText bersifat opsional 
sehingga dapat diisi ataupun tidak. Apabila tidak diisi, secara 
default teks pada tombol adalah Open. 


(ImultiSelect| merupakan opsi untuk memilih beberapa file 
pada kotak dialog Open. Argumen multiSelect bersifat opsional 
sehingga dapat diisi ataupun tidak. Jika diisi False atau tidak 
diisi, file yang dapat dipilih hanya 1. 


Tekan kombinasi tombol Ctrl-N untuk membuat workbook 
baru. Simpan workbook dengan nama Kotak Dialog Open.xls. 


Tekan kombinasi tombol Alt-F11 atau klik tombol Visual 
Basic dalam tab Developer group Code untuk membuka Visual 
Basic Editor. 


Pada jendela Visual Basic Editor, pilih menu Insert » Module. 
Ketikkan kode Macro berikut pada window Code Module 1: 


Sub KotakDialogOpen () 
'Menampilkan kotak dialog Open 


NamaFile - Application.GetOpenFilename 
(MErcelari les tile Kie" la "Open, "Pilin" ralsej 


101 


'Apabila tombol Cancel dipilih 

If TypeName (NamaFile) - "Boolean" Then 
Rrit Sub 

End If 


'Kotak pesan informasi file 
MsgBox "File dipilih:" & vbCrLf & NamaFile, vbInformation 


'Membuka file yang dipilih 
Workbooks.Open NamaFile 


End Sub 


4. Kembali ke program utama Excel. Tekan kombinasi Alt-F8 
atau klik tombol Macros dalam tab Developer group Code 
untuk menampilkan kotak dialog Macro. 


5. Pilih Macro KotakDialogOpen kemudian klik tombol Run. 
Muncul kotak dialog Open. 


Lookin: (& Hasil 

BD PLAN Funasi Dengan Argumen Array I.xIs 

Documents | |Eijkungsi Dengan Argumen Array IL.xIs 
MacroOptions..xIs 
Membuat Fungsi Dengan Argumen Opsional.xls 
Membuat Fungsi Dengan Dua Argumen.xIs 
Membuat Fungsi Dengan Satu Argumen.xts 
(Membuat Fungsi Tanpa Argumen.xIs 
Menggunakan Fungsi Dalam Sub Procedure.xts 
Menggunakan Fungsi untuk Fungsi yang Lain.xls 
Menggunakan VBA Functions.xls 
Menggunakan Worksheet Function.xts 


(& Desktop 
Mp 
documents 
My 
& computer 


gg" Network 
Places 


2 
2 
3 
3 
3 
2 
& 
2 
2 


File name: 


Files of type: | excel-files (#.xIsmp".xIs) 


Cancel 


Gambar 5.11 Kotak dialog Open. 


6. Pilih salah satu file yang akan dibuka kemudian klik tombol 
Open. Muncul kotak pesan seperti terlihat pada Gambar 5.12. 
Klik tombol OK. File yang Anda pilih kemudian akan terbuka. 


Microsoft Excel 


. File dipilih: 
J) E:Elex(Belajar Sendiri Pemrograman Macro Excel (VBA)CD PendampingiBab 4 Function ProcedureiHasili Fungsi 


Dengan Argumen Array I.xIs 


Gambar 5.12 Kotak pesan lokasi penyimpanan file. 
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5.5 Kotak Dialog Save Ac 


Anda dapat menggunakan method GetSaveAsFilename untuk 
menampilkan kotak dialog Save As dan menyimpan sebuah file. 
Berikut format kode Macro method GetSaveAsFilename: 


|initialFilename| merupakan nama file default pada kotak 
dialog Save As. Argumen initialFilename bersifat opsional 
sehingga dapat diisi ataupun tidak. Apabila tidak diisi, maka 
nama file aktif yang akan digunakan. 


1. Tekan kombinasi tombol Ctrl-N untuk membuat workbook 
baru. Simpan workbook dengan nama Kotak Dialog Save 
As.xls. 


2. Tekan kombinasi tombol Alt-F11 atau klik tombol Visual 
Basic dalam tab Developer group Code untuk membuka Visual 
Basic Editor. 


3. Pada jendela Visual Basic Editor, pilih menu Insert » Module. 
Ketikkan kode Macro berikut pada window Code Module 1: 
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ActiveWorkbook.SaveAs Filename:-NamaFile, 
FileFormat:-x1lOpenXMLWorkbookMacroEnabled, 
CreateBackup:-False 


End Sub 


4. Kembali ke program utama Excel. Tekan kombinasi Alt-F8 
atau klik tombol Macros dalam tab Developer group Code 
untuk menampilkan kotak dialog Macro. 


5. Pilih Macro KotakDialogSaveAs kemudian klik tombol Run. 
Macro kemudian akan membuat workbook baru. Setelah itu, 
muncul kotak pesan seperti terlihat pada Gambar 5.13. 


Gambar 5.13 Kotak pesan Simpan Workbook. 


5. Untuk menyimpan workbook, klik tombol Yes. Muncul kotak 
dialog Save As. Ketikkan nama file pada kotak isian File 
name:, misalnya Workbook Baru.xls, lalu klik tombol Save. 


Savein: | (C9 Hasil 


» My Recent | (9April.xIs 
Documents | (fjpuit In Kotak Dialog.xIs 
(@ besktop | rebruari.xts 
129)impor Kotak Dialog.xIs 
My (joanuari.xIs 
Hoocuments aa Dialog Browse For Folder.xis 
Kotak Dialog Open.xIs 
Rana #llkotak Dialog Save As.xIs 
ha. Pikdlnya (otak Input Dengan Tipe Range.xls 
(maret.xis 
#1) Memasukkan Nilai Spin Button ke Dalam Text Box.xls 
#)Membuat kotak dialog.xls 
#lmembuat Kotak Input.xIs 
Membuat Kotak Pesan.xs 
(nilai Kotak Pesan.xls 
| Workbook Baru.xIs 


gw 
Computer 


Filename: — (WorkbookBaru.xIsl 


Save astype: (Excel 97-2003 Workbook (".xIs) 


sma 


Gambar 5.14 Kotak dialog Save As. 


5.6 Kotak Dialog Browse for Folder 


Kotak dialog Browse for Folder dapat Anda gunakan untuk 
memilih folder. Folder yang Anda pilih selanjutnya dapat digu- 
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nakan untuk keperluan tertentu, misalnya menyimpan workbook 
hasil split workbook. Split workbook merupakan pemecahan 
workbook menjadi beberapa workbook baru. Jumlah workbook 
baru sama dengan jumlah worksheet dalam workbook yang displit. 
Secara default, masing-masing workbook berisi 1 buah worksheet 
dengan nama workbook yang sama dengan nama worksheet. 


1. Buka file Kotak Dialog Browse for Folder.xIs yang disertakan 
dalam Bonus CD buku. 


2. Tekan kombinasi tombol Alt-F11 atau klik tombol Visual 
Basic dalam tab Developer group Code untuk membuka Visual 
Basic Editor. 


3. Pada jendela Visual Basic Editor, pilih menu Insert » Module. 
Ketikkan kode Macro berikut pada window Code Module 1: 
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End Sub 


4. Kembali ke program utama Excel. Tekan kombinasi Alt-F8 
atau klik tombol Macros dalam tab Developer group Code 
untuk menampilkan kotak dialog Macro. 


5. Pilih Macro KotakDialogBrowseforFolder kemudian klik tombol 
Run. Muncul kotak dialog Browse for Folder. 


Browse for Folder 


Gambar 5.15 Kotak dialog Browse for Folder. 


6. Pilih folder yang Anda inginkan. Folder yang terpilih akan 
ditampilkan pada kotak pilihan Look in:. Klik tombol OK. 
Proses split workbook akan berjalan selama beberapa saat. 


7. Untuk mengetahui apakah semua berjalan dengan benar, 
jalankan Windows Explorer. Buka folder yang Anda pilih untuk 
menyimpan hasil split workbook (langkah 6). Apabila semua 
berjalan dengan benar, dalam folder yang Anda pilih terdapat 
4workbook baru dengan nama Januari.xls, Februari.xls, 
Maret.xlIs dan April.xls. 


5.7 Ucerform 


UserForm merupakan tempat penampung objek kontrol. Anda 
dapat menggunakan UserForm untuk membuat kotak dialog. 
Untuk menambahkan UserForm, pilih menu Insert » UserForm 
pada Visual Basic Editor. 
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UserForm1 


Gambar 5.16 Tampilan UserForm. 


Pengaturan UserForm secara visual, misalnya mengubah ukuran 
UserForm, menambahkan kontrol, mengatur posisi kontrol dan 
pengaturan lainnya, dapat dilakukan melalui window Object. 
Pengaturan yang lebih detail dilakukan melalui window Properties. 


571 ToolBox 


Toolbox merupakan tempat kontrol yang dapat dipilih untuk 
kemudian ditambahkan ke dalam UserForm. Untuk menampilkan 
window Toolbox klik tombol Toolbox (ah pada toolbar Standar, 
atau pilih menu utama View » Toolbox. 


Controls | 


RA 


Pc 
— 2) 
s 


Gambar 5.17 Tampilan Toolbox. 


Berikut nama kontrol beserta fungsi kontrol yang secara default 
ada dalam Toolbox. 
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Kontrol 


Select Objects 


Gambar 


Fungsi 


Untuk memilih objek kontrol pada Toolbox, 
menempatkan kontrol pada UserForm, 
mengubah ukuran kontrol dan memindah 
posisi kontrol dalam UserForm. 


Untuk membuat teks berupa informasi 
singkat kepada pengguna. Teks yang ditam- 


Label 
sa pilkan tidak dapat diubah pengguna pada 
saat UserForm dijalankan. 
Untuk membuat kotak isian pada UserForm. 
Pengguna dapat memasukkan nilai (dapat 
TextB 
kista berupa angka ataupun teks) ke dalam kotak 
isian. 
Untuk menampilkan daftar pilihan yang 
dikelompokkan dalam TextBox. Pengguna 
ComboBox B3 juga dapat mengetik pilihannya dalam 
ComboBox, namun hal tersebut tergantung 
pada style yang digunakan. 
Untuk menampilkan pilihan yang dikelom- 
ListBox EF pokkan dalam sebuah daftar pilihan, yang 
dapat digeser secara vertikal. 
Untuk menampilkan beberapa pilihan yang 
CheckB Ig 
bla sd dapat dipilih lebih dari satu. 
Untuk menampilkan beberapa pilihan yang 
OptionButton « hanya dapat dipilih salah satu dalam suatu 
UserForm atau Frame. 
TogeleButton 3 Untuk membuat pilihan tombol on atau off 
pada UserForm. 
Frame P3 Untuk mengelompokkan kontrol yang mem- 
— punyai fungsi sama. 
Untuk membuat tombol yang akan men- 
ComandButton IE jalankan suatu perintah apabila tombol 
tersebut ditekan. 
TabStrip Ta Untuk membuat beberapa kotak dialog 


pada UserForm. 
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MultiPage 


Untuk mengelompokkan objek dalam satu 
atau beberapa halaman sebagai satu 
kesatuan. 


ScrollBar 


kl 


Untuk memasukkan data secara analog, 
yaitu dengan melakukan penggeseran pada 
bidang ScrollBar ataupun penekanan pada 
tombol (atas, bawah, kiri atau kanan). 


SpinButton 


Untuk memasukkan data yang berurutan 
dengan range yang konsisten. 


Image 


RefEdit 


ms 


Untuk menampilkan gambar dalam format 
bitmaps (“.bmp, “.dib), GIF (“.gif), JPEG 
(“.jpeg), Metafiles (#.wmf, “.emf) dan Icons 
(“.ico, “.cur). 

Untuk mengedit alamat reference pada 
Microsoft Excel. 


579 Menambahkan Kontrol 


Sebelum menambahkan kontrol, Anda tentu harus menyiapkan 
UserForm yang dijadikan sebagai tempat penampung kontrol 


terlebih dahulu. 


1. Tekan kombinasi tombol Alt-F11 atau klik tombol Visual 
Basic dalam tab Developer group Code untuk menjalankan 


Visual Basic Editor. 


2. Pilih menu Insert » UserForm untuk menambahkan UserForm. 
Ketika menambahkan UserForm, secara otomatis Toolbox 
akan ditampilkan. Jika belum ditampilkan, pilih menu View » 


Toolbox. 


Controls | 


rkA 


y« 
Png 
K5) 


Gambar 5.18 Memilih kontrol yang akan ditambahkan. 
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3. Klik kontrol yang akan ditambahkan ke dalam UserForm, 


dalam contoh kali ini pilih TextBox. Klik mouse pada bidang 
UserForm untuk menambahkan kontrol ke dalam UserForm. 


UserForm1 


Gambar 5.19 Menambahkan kontrol ke dalam UserForm. 


573 Mengubah Ukuran dan Posisi Kontrol 


Saat pertama kali dibuat, ukuran dan posisi kontrol mungkin tidak 
sesuai dengan yang kita harapkan. Ukuran kontrol dapat diubah 
menggunakan mouse, melalui window Properties atau melalui 
kode Macro. Posisi kontrol dapat diubah menggunakan mouse, 
melalui window Properties atau melalui kode Macro. Berikut 
langkah-langkah untuk mengubah ukuran dan posisi kontrol 
menggunakan mouse: 


1. 


"Oo 


Klik kontrol yang akan diubah ukurannya. Arahkan pointer 
pada titik yang terdapat di bagian tengah garis kontrol. Ketika 
mouse siap digunakan untuk mengubah lebar kontrol, bentuk 
kursor mouse akan menjadi #d—#. Mouse yang siap digunakan 
untuk mengubah tinggi kontrol, bentuk kursornya akan 
berubah menjadi 1. 


Klik dan tahan mouse saat siap digunakan untuk mengubah 
ukuran kontrol. Tarik titik ke bagian dalam untuk memperkecil 
ukuran kontrol, atau tarik ke bagian luar untuk memperbesar 
ukuran kontrol. 


UserForm1 


Gambar 5.20 Mengubah ukuran kontrol menggunakan mouse. 


3. Untuk mengubah posisi kontrol, klik dan tahan mouse pada 
bidang kontrol kemudian tarik pada posisi yang diinginkan. 
Jika posisi sudah sesuai, lepaskan tombol mouse. 


UserForm1 


Gambar 5.21 Mengubah posisi kontrol menggunakan mouse. 


5.7.4 Menyalin Kontrol 


Untuk menambahkan banyak kontrol yang sama, Anda dapat 
melakukannya secara cepat dengan cara menyalin kontrol. 
Teknik menyalin kontrol dapat dilakukan dengan dua cara, yaitu 
dengan teknik copy paste dan teknik drag and drop. 


1. Untuk menyalin kontrol dengan teknik copy paste, pilih kontrol 
yang akan disalin menggunakan klik mouse. 


2. Tekan kombinasi tombol Ctrl-C atau pilih menu Edit »- Copy. 
Tekan kombinasi tombol Ctrl-V atau pilih menu Edit »- Paste. 
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UserForm1 


Gambar 5.22 Menyalin kontrol dengan teknik copy paste. 


3. Untuk menyalin kontrol dengan teknik drag and drop, tekan 
dan tahan tombol Ctrl pada keyboard. Klik dan tahan tombol 
kiri mouse kemudian tarik mouse pada posisi yang diinginkan. 
Saat menyalin kontrol, pointer mouse akan menampilkan 
tanda plus (4). Jika posisi kontrol sudah sesuai, lepaskan 
tombol mouse. 


UserForm1 


Gambar 5.23 Menyalin kontrol dengan teknik drag and drop. 


5.7.5 Menghapus Kontrol 


Kontrol yang sudah tidak digunakan, sebaiknya Anda hapus agar 
tidak membingungkan pengguna. Pilih kontrol yang akan dihapus 
kemudian tekan tombol Delete atau pilih menu Edit » Delete. 
Anda juga dapat menghapus kontrol melalui menu klik kanan. 
Klik kanan kontrol yang akan dihapus lalu pilih menu Delete. 
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Gambar 5.24 Menghapus kontrol melalui menu klik kanan. 


57.6 Membuat Kotak Dialog 


Pada pembahasan kali ini kita akan membuat kotak dialog yang 
digunakan untuk membuat worksheet baru pada workbook aktif. 
Melalui kotak dialog, kita dapat memilih akan membuat worksheet 
dengan nama default atau dengan nama yang kita tentukan. 


1. 


Tekan kombinasi tombol Ctrl-N untuk membuat workbook 
baru. Simpan workbook dengan nama Membuat Kotak 
Dialog.xls. 


Tekan kombinasi tombol Alt-F11 atau klik tombol Visual 
Basic dalam tab Developer group Code untuk membuka Visual 
Basic Editor. 


Pada jendela Visual Basic Editor, pilih menu utama Insert - 
(serForm. Atur properti UserForm melalui window Properties. 
Pilih menu utama View » Properties Window, atau tekan 
tombol F4. Ubah properti UserForm sebagai berikut: Name - 
BuatWorksheet, Caption - Buat Worksheet, Height - 126, 
Width - 201. 


Properties - BuatWorksheet 


BuatWorksheet UserForm 

Alphabetic | Categorized | 
SuatWorksheet 

BackColor &HSOOOOOOFE 

BorderColor IM 2200000128. 

BorderStyle 0 - fmBorderStyleNone 

(Caption Buat Worksheet 

Cycle O - fmCycleAllForms 

DrawBuffer 32000 

Enabled True 

Font Tahoma 

ForeColor IM 21200000122. 

Height 126 

HelpContextID o 

KeepScrollBarsVisible 3 - FmScrollBarsBoth 

Left o 


Gambar 5.25 Mengubah properti UserForm. 
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5. 
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Pilih kontrol Frame pada Toolbox kemudian klik mouse pada 
bidang UserForm. Langkah tersebut dilakukan untuk me- 
nambah kontrol Frame pada UserForm. Ubah properti kontrol 
Frame menjadi Name - frmNama, Caption - Nama 
worksheet, Height - 60, Left - 6, Top - 6, Width - 180. 


Buat Worksheet 


Gambar 5.26 Menambahkan kontrol Frame. 


Dengan cara yang sama, tambahkan kontrol lainnya pada 
UserForm, sehingga tampilan UserForm menjadi seperti ini. 


Buat Worksheet 


Gambar 5.27 Tampilan UserForm. 


Pengaturan setting properti pada UserForm dan objek kontrol 
selengkapnya sebagai berikut. 


Objek Setting Properti 


Name - BuatWorksheet, Caption - Buat Worksheet, 


Meera Height - 126, Width - 201 


Name - frmNama, Caption - Nama worksheet, 


Male Height - 60, Left - 6, Top - 6, Width - 180 


Name - optDefault, Caption - Default, Height - 18, 


OpMonPuen Left - 6, Top - 6, Width - 45, Value - True 


Name - optUbah, Caption - Ubah :, Height - 18, 


OptionButton Left - 6, Top - 30, Width - 45 


TextBox Name - txtNama, Enabled - False, Height - 18, Left 
2-54, Top - 30, Width - 120 
Name - cmdOK, Caption - OK, Height - 24, Left - 

ComandButton 99" Top 272 Width—54 

omi dbukkon Name - cmdBatal, Caption - Batal, Height - 24, Left 
- 72, Top - 72, Width - 54 


7. Untuk menentukan urutan pilihan dari satu kontrol ke kontrol 
lain menggunakan tombol Tab pada keyboard (Tab Order), 
klik kanan bidang UserForm kemudian pilih menu Tab Order. 


Buat Worksheet 


Select All 


| (SP Properties 
OK | BE) View Code 
Tab Order 


Gambar 5.28 Memilih menu klik kanan Tab Order. 


8. Muncul kotak dialog Tab Order. Untuk menentukan urutan 
kontrol, klik tombol Move Up atau Move Down. Atur urutan 
objek hingga terlihat seperti Gambar 5.29. Jika sudah, klik 
tombol OK. 


Tab Order 


Tab Order 


Gambar 5.29 Tab Order UserForm. 


9. Untuk menentukan urutan Tab Order pada frame Nama 
worksheet, klik kanan pada bidang frame Nama worksheet lalu 
pilih menu Tab Order. Muncul kotak dialog Tab Order. 
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10. Atur urutan objek pada frame Nama worksheet hingga terlihat 
seperti Gambar 5.30. Jika sudah, klik tombol OK. 


Tab Order 


Gambar 5.30 Tab Order frame Nama worksheet. 


11. Pilih menu View » Code atau tekan F7. Ketikkan kode Macro 
sebagai berikut: 
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12.Untuk dapat menjalankan kotak dialog melalui Excel, 
tambahkan modul dengan memilih menu utama Insert »- 
Module. Ketikkan kode Macro pada Module1 sebagai berikut: 


13. Kembali ke program utama Excel. Tekan kombinasi tombol 
Alt-F8 atau klik tombol Macros dalam tab Developer group 
Code untuk menampilkan kotak dialog Macro. 
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14. Pilih Macro LoadBuatWorksheet kemudian klik tombol Run. 
Muncul kotak dialog Buat Worksheet. 


Buat Worksheet 


Nama worksheet 


Gambar 5.31 Kotak dialog Buat Worksheet. 


15. Pilih opsi Ubah untuk membuat worksheet baru dengan nama 
yang kita tentukan. Ketikkan nama worksheet pada kotak isian 
yang tersedia lalu klik tombol OK. Jika nama worksheet sudah 
ada, nama worksheet secara default memiliki format SheetN 
dan muncul kotak pesan seperti terlihat pada Gambar 5.32. 


Microsoft Excel Xx 


- 
4) Nama worksheet sudah ada 


Gambar 5.32 Nama worksheet sudah ada. 


577 Ekspor Kotak Dialog 


Anda dapat mengekspor kotak dialog (UserForm) yang telah 
dibuat. Kotak dialog tersebut kemudian dapat Anda gunakan 
kembali saat dibutuhkan untuk proyek Anda yang lain. File yang 
digunakan dalam pembahasan kali ini adalah file hasil latihan 
sebelumnya, Membuat Kotak Dialog.xls. 


1. Buka file Membuat kotak dialog.xIsm yang disertakan dalam 
Bonus CD buku. 


2. Tekan kombinasi tombol Alt-F11 atau klik tombol Visual 
Basic dalam tab Developer group Code untuk membuka Visual 
Basic Editor. 


3. Pada Project Explorer klik kanan UserForm BuatWorksheet. 
Muncul daftar menu seperti terlihat pada Gambar 5.33. 


Project - YBAProject & 
ES 
5:88 VBAProject (Membuat kotak dial| 
5-3 Microsoft Excel Objects 

Sheeti (Sheeti) 

EB) sheet2 (Sheet2) 

HB) Sheet3 (Sheet3) 

BB) Sheet4 (Laporan penjualan) 

$J ThisWorkbook 
583 Forms 


5-#3 Modukes | View Code 


#4 Modulet | ES View Object 


VBAProject Properties... 
Insert i: 
Import File... 
Export File... 
Remove BuatWorksheet... 
Ba print... 
M1 Dockable 


Hide 


Gambar 5.33 Tampilan menu klik kanan. 


3. Pilih menu Export File... Muncul kotak dialog Export File 
seperti terlihat pada Gambar 5.34. 


Export File 


Savein: | (9 Hasil 


File name: BuatWorksheetl Save 


Save as type: | Form Files (“.frm) Cancel 


Help 


Gambar 5.34 Kotak dialog Export File. 


4. Pastikan pilihan pada kotak combo Saves of type: adalah Form 
Files (“.frm). Ketikkan nama file pada kotak isian File name: 
kemudian klik tombol Save. 


5.7.8 Impor Kotak Dialog 


Setelah Anda mengekspor kotak dialog, Anda dapat meng- 
gunakan kotak dialog tersebut untuk digunakan pada proyek 
(workbook) yang lain, dengan cara mengimpor file kotak dialog. 


1. Tekan kombinasi tombol Ctrl-N untuk membuat workbook 
baru. Simpan workbook dengan nama Impor Kotak Dialog.xls. 
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2. Tekan kombinasi tombol Alt-F11 atau klik tombol Visual 
Basic dalam tab Developer group Code untuk membuka Visual 
Basic Editor. 


3. Klik kanan pada sembarang objek dalam Project Explorer. 
Muncul daftar menu seperti terlihat pada Gambar 5.33. 


4. Pilih menu Import File... Muncul kotak dialog Import File. Pilih 
file BuatWorksheet.frm yang ada dalam Bonus CD buku. Klik 
tombol Open. 


Import File 
aw 


File name: BuatWorksheet 


Filesoftype: |VB Files (“irm,”.bas:”.cds) 


Gambar 5.35 Kotak dialog Import File. 


5. Apabila impor kotak dialog berhasil, pada Project Explorer 
sekarang terdapat UserForm BuatWorksheet. 


pustvlokehert A 
Darscomooea 


Gambar 5.36 Impor kotak dialog berhasil. 
6. Agar kotak dialog dapat dijalankan melalui Excel, tambahkan 
modul dengan memilih menu utama Insert » Module. 


Ketikkan kode Macro pada Module1 sebagai berikut: 
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Sub LoadBuatWorksheet () 


'Mengaktifkan kotak dialog 
Load BuatWorksheet 


'Menampilkan kotak dialog 
BuatWorksheet.Show 


End Sub 


7. Kembali ke program utama Excel. Tekan kombinasi tombol 
Alt-F8 atau klik tombol Macros dalam tab Developer group 
Code untuk menampilkan kotak dialog Macro. 


8. Pilih Macro LoadBuatWorksheet lalu klik Run. Jika semuanya 
dijalankan dengan benar, muncul kotak dialog Buat Worksheet. 


5.8 ActiveX Oontrols 


ActiveX Controls merupakan kumpulan kontrol yang ditempatkan 
pada worksheet untuk menambah interaktivitas Macro. ActiveX 
Control pada dasarnya mempunyai fungsi yang sama dengan 
kontrol dalam Toolbox - Visual Basic Editor. Perbedaannya adalah 
kontrol dalam ActiveX Control ditempatkan pada worksheet, 
sedangkan kontrol dalam Toolbox ditempatkan pada UserForm. 
Perbedaan penempatan kontrol akan sangat terasa ketika Anda 
bekerja dengan lebih dari satu workbook dalam waktu bersamaan. 
Ketika menggunakan kontrol yang ditempatkan dalam UserForm, 
secara default Anda tidak dapat membuka workbook yang lain 
dalam waktu bersamaan. 


ActiveX Control Excel 2003 baru dapat digunakan setelah Anda 
menampilkan toolbar Control Toolbox. Pilih menu View » Toolbar 
» Control Toolbox. 


View | Insert Format Tools Data Window Help 
| Normal 3A- 3 
Jl Page Break Preview AA TITEE 
£ 252m 3 ro 
Toolbars » Isl Standard 
g Formatting 


Dean 


Gambar 5.37 Menampilkan toolbar Control Toolbox. 
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Toolbar Control Toolbox akan ditampilkan apabila terdapat tanda 
contreng dalam menu Control Toolbox. Tampilan toolbar Control 
Toolbox terlihat seperti pada Gambar 5.38. 


Control Toolbox “x 


PA Me N AN TMP MOME NE: MM MN AE MSI 


Gambar 5.38 Toolbar Control Toolbox. 


Kontrol Gambar Fungsi 


Untuk memilih kontrol yang sudah ditem- 
patkan dalam worksheet, mengubah ukuran 

kontrol, memindah posisi kontrol, dan 
mengubah properti kontrol. 


Design Mode 


Untuk menampilkan window Properties, 


Properties untuk mengatur properti kontrol yang 
sedang aktif. 


Untuk menampilkan kode Macro pada 
View Code kontrol yang sedang aktif, melalui window 
Code. 


Untuk menambahkan objek kontrol lain 
More Controls yang tidak ditampilkan dalam toolbar 
Control Toolbox. 


Untuk pengguna Excel 2007, Anda harus menampilkan tab 
Developer dalam Ribbon terlebih untuk menggunakan ActiveX 
Controls. Seluruh kontrol standar dalam ActiveX Controls pada 
prinsipnya sama dengan kontrol Toolbox - Visual Basic Editor 
yang ditempatkan pada UserForm. 


581 Pengaturan Keamanan ActiveX Controls 


Seperti halnya Macro, ActiveX Control juga dapat disalahgunakan 
pengguna yang tidak bertanggung jawab untuk melakukan tin- 
dakan yang merugikan. Untuk mengatasi masalah tersebut, Excel 
menyediakan pilihan pengaturan keamanan ActiveX Controls. 
Pada Excel 2007 dan Excel 2010 pengaturan keamanan ActiveX 
Controls terpisah dengan pengaturan keamanan Macro. 
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1. Klik tombol Macro Security dalam tab Developer group Code. 
Muncul kotak dialog Trust Center. 


Gambar 5.39 Kotak dialog Trust Center. 


2. Pilih opsi ActiveX Settings. Pilih salah satu dari beberapa opsi 
yang disediakan sebagai berikut: 


&. 
“ 


Disable all controls without notification. Apabila opsi ini 
dipilih, ActiveX Controls dalam workbook tidak akan 
diaktifkan. 


Prompt me before enabling Unsafe for Initialization (UFI) 
controls with additional restrictions and Safe for 
Initialization (SFI) controls with minimal restrictions dan 
Prompt me before enabling all controls with minimal 
restrictions. Apabila opsi ini dipilih, Excel akan 
menampilkan peringatan dan menonaktifkan ActiveX 
Controls ketika workbook yang mengandung ActiveX 
Controls dibuka. Diaktifkan atau tidaknya ActiveX Controls, 
tergantung pada pilihan Anda. 


Enabled all controls without restrictions and without 
prompting (not recommended, potentially dangerous 
controls can run). Apabila opsi ini dipilih, ActiveX Controls 
dalam workbook akan selalu diaktifkan. Opsi ini tidak 
direkomendasikan karena berpotensi menimbulkan keru- 
gian. 
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“« Safe mode (helps limit the control's access to your 
computer). Opsi ini digunakan untuk membatasi akses 
ActiveX Controls pada komputer, misalnya membatasi 
ActiveX Controls untuk mengubah registry sistem operasi. 
Beri tanda contreng pada pilihan ini untuk mengaktifkan 
pengaturan safe mode. 


589 Menambahkan Kontrol 


ActiveX Control Excel 2003 dapat ditambahkan dengan cara klik 
kontrol pada toolbar Control Toolbox. Untuk pengguna Excel 2007 
dan Excel 2010, Anda dapat menambahkan ActiveX Control 
melalui tombol Insert dalam tab Developer group Controls. Dalam 
contoh kali ini, kita akan menambahkan kontrol ListBox. 


1. Klik tombol Insert dalam tab Developer group Controls. 
Muncul tampilan seperti terlihat pada Gambar 5.40. 


Book1 - Microsoft Excel 


aroma $ 
Mo Apn 


| List Box (ActiveX Control) 


Gambar 5.40 Memilih kontrol yang akan ditambahkan. 
2. Klik kontrol List Box (ActiveX Controls). Klik mouse pada 


bidang worksheet untuk menambahkan kontrol ke dalam 
worksheet. 


ag 


MSM Shoari “Shes Shes 73 KA AAN... 21 
Rea PI (aD0 03 G 5 


Gambar 5.41 Menambahkan kontrol ListBox. 
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Ukuran dan posisi kontrol dapat diubah menggunakan mouse, 
kotak dialog Format Control, window Properties atau menggu- 
nakan kode Macro. Untuk mengubah ukuran dan posisi kontrol 
menggunakan mouse, pastikan tombol Design Mode dalam 
keadaan aktif. Setelah tombol Design Mode aktif, Anda baru dapat 
menyeleksi kontrol yang akan diubah ukuran atau posisinya. Cara 
mengubah ukuran dan posisi ActiveX Control, pada prinsipnya 
sama dengan cara mengubah ukuran dan posisi kontrol pada 
UserForm. 


5.8.3 Kotak Dialog Format Control 


Kotak dialog Format Control merupakan kotak dialog untuk 
melakukan pengaturan berbagai hal yang berkaitan dengan 
ActiveX Controls. Berikut pengaturan ActiveX Controls melalui 
kotak dialog Format Control. 


1. Klik kanan kontrol kemudian pilih menu Format Control... 
Muncul kotak dialog Format Control. Pilih tab Size untuk 
mengatur ukuran kontrol. 


“« Ketikkan tinggi kontrol yang Anda inginkan pada kotak isian 
Height: pada pilihan Size and rotate. Anda juga dapat me- 
nentukan tinggi kontrol berdasarkan persentase ukuran 
kontrol saat diubah melalui kotak isian Height: pada pilihan 
Scale. 


« Untuk menentukan lebar kontrol, ketikkan lebar kontrol 
pada kotak isian Width: pada pilihan Size and rotate. Anda 
juga dapat menentukan lebar kontrol berdasarkan per- 
sentase lebar kontrol saat diubah melalui kotak isian Width: 
pada pilihan Scale. 


“ Agar perubahan ukuran kontrol selalu proporsional, beri 
tanda contreng pada pilihan Lock aspect ratio. Setelah Anda 
melakukan pengaturan tersebut, Anda selanjutnya hanya 
tinggal mengubah tinggi atau lebarnya saja. Jika Anda 
mengubah tinggi, maka lebarnya akan menyesuaikan 
dengan ukuran yang proporsional. 
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Format Control 


Size | Protection || Properties | Alt Text 
Size and rotate 


Height: 5 


Scale 


Height: |122 96 width: | 108 46 


V) Lock aspect ratio 


Original size 


Cancel 


Gambar 5.42 Kotak dialog Format Control - tab Size. 


2. Klik tab Protection untuk mengatur apakah kontrol dapat 
dimodifikasi atau tidak. Pengaturan baru aktif saat worksheet 
dalam keadaan terproteksi. Beri tanda contreng pada pilihan 
Locked agar kontrol tidak dapat dimodifikasi pengguna. 


Format Control 


Alt Text 


Locking objects has no effect unless the sheet is protected, To help protect the 
sheet, choose Format on the Home tab, and then choose Protect Sheet. A 


password is optional, 


Gambar 5.43 Kotak dialog Format Control - tab Protection. 


3. Klik tab Properties untuk melakukan pengaturan apakah 
kontrol akan ikut menyesuaikan jika ada perubahan range 


yang ditempati kontrol. 
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“« Move and size with cells digunakan untuk mengatur agar 
kontrol ikut berpindah dan berubah ukurannya menyesuai- 
kan perubahan range yang ditempati. 


Format Control 


Size | Protection | | Properties | | Alt Text 
Object positioning 
(O Move and size with cells 
love but don't size with cells 
(O Don't move or size with cells 


v| Print object 


Gambar 5.44 Kotak dialog Format Control - tab Properties. 


“« Move but don't size with cells digunakan untuk mengatur 
agar kontrol ikut berpindah menyesuaikan perubahan range 
yang ditempati, namun ukurannya tidak berubah. 


« Don't move or size with cells digunakan untuk mengatur 
agar kontrol tidak ikut berpindah dan tidak berubah 
ukurannya ketika ada perubahan range yang ditempati. 


“ Untuk mengatur agar kontrol tidak ikut tercetak, hilangkan 
tanda contreng pada pilihan Print object. 


Klik tab Web atau All Text (Excel 2010) untuk menambahkan 
teks alternatif pada web browser. Teks alternatif berfungsi 
untuk membantu mesin pencari menemukan kontrol dalam 
workbook yang disimpan secara online di internet. Ketikkan 
teks alternatif yang Anda inginkan pada kotak isian yang 
tersedia. 
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Format Control 


Size Protection || Properties ! Alt Text! 


Alternative text: 


Web browsers display alternative text while pictures are loading or if they are 
missing. Web search engines use alternative text to help find Web pages. 
Alternative text is also used to assist users with disabilities. 


Gambar 5.45 Kotak dialog Format Control - tab Web/AII Text. 


5.8.4 Memasukkan Nilai SpinButton ke TextBox 


Contoh penerapan ActiveX Control berikut digunakan untuk 
memasukkan nilai SpinButton ke dalam TextBox. Anda tidak 
dapat memasukkan nilai langsung ke dalam TextBox karena 
properti Enabled diatur ke nilai False. 


1. Tekan kombinasi tombol Ctrl-N untuk membuat workbook 
baru. Simpan workbook dengan nama Memasukkan Nilai 
SpinButton ke TextBox.xls. 


2. Tambahkan Text Box dan Spin Button ke dalam worksheet 
Sheet1. Ubah serta atur posisi kontrol seperti gambar berikut. 


A B & D E F c H 1 . In 


17 
M4) Sheeti . Sheet? . Sheet3 F3 IM | 
5 Le 


Gambar 5.46 Menambahkan Text Box dan Spin Button. 
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2. Pengaturan properti masing-masing kontrol dapat dilihat pada 
tabel berikut. 


Objek Setting Properti 
SpinButton Name - spinNilai, Height - 18, Max - 100, Min - 0, 
SmallChange - 1, Width - 15 
TextBox Name - txtNilai, BackColor - &HOOOOFFFF& (kuning), 
Enabled - False, Height - 18, TextAlign - 3- 
fmTextAlignRight, Width - 90 


3. Tekan kombinasi tombol Alt-F11 atau klik tombol Visual 
Basic dalam tab Developer group Code untuk membuka Visual 
Basic Editor. 


4. Pilih objek Sheet1(Sheet1) dalam Project Explorer. Tekan F7 
pada keyboard atau pilih menu View » Code untuk me- 
nampilkan window Code. Ketikkan kode Macro berikut: 


Private Sub spinNilai Change () 


'TextBox diisi nilai SpinButton 
txtNilai.Value - spinNilai.Value 


End Sub 


5. Kembali ke program utama Excel. Jika semuanya dilakukan 
dengan benar, Anda tidak dapat memasukkan nilai secara 
langsung ke dalam TextBox. Anda hanya dapat memasukkan 
nilai ke dalam Text Box melalui Spin Button. 


A B PA MAN 


| — 


UP?» WN kb 


Gambar 5.47 Memasukkan nilai Spin Button ke dalam Text Box. 
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